home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / www / amitrix / akjfif43x.lha / akJFIF-Datatype / Install next >
Text File  |  1997-05-17  |  3KB  |  102 lines
  1. ;$VER: akJFIF_Installer 43.70 (17.5.97)
  2.  
  3. FAILAT 21
  4.  
  5. ;Check OS version!
  6. c/akT OS 39
  7. IF WARN
  8.    ECHO "You need OS 3.0 or later!"
  9.    ASK "Press return!"
  10.    QUIT
  11. ENDIF
  12.  
  13. ;Display dt version etc!
  14. c/akT >ENV:akver VER classes/Datatypes/akJFIF.datatype
  15. C:RequestChoice >NIL: "Andreas Ralph Kleinert presents:" "$akver" "Install/Update"
  16. UNSETENV akver
  17.  
  18. ;Create dt prefs drawer if not found!
  19. IF NOT EXISTS SYS:Prefs/DataTypes
  20.    C:Makedir >NIL: SYS:Prefs/DataTypes
  21.    C:Copy >NIL: prefs/datatypes.info SYS:Prefs/DataTypes.info CLONE
  22. ENDIF
  23.  
  24. ;Move any dtprefs to sys:prefs/datatypes!
  25. IF EXISTS sys:prefs/akJFIFprefs
  26.    C:Rename >NIL: sys:prefs/akJFIFprefs#? sys:prefs/datatypes
  27. ENDIF
  28.  
  29. ;Create ENV:Datatypes if not found!
  30. IF NOT EXISTS ENV:Datatypes
  31.    C:Makedir >NIL: ENV:Datatypes ENVARC:Datatypes
  32. ENDIF
  33.  
  34. ;Install dtprefs if not found or current one is old!
  35. c/akT CHK prefs/datatypes/akJFIFPrefs SYS:prefs/datatypes/akJFIFPrefs
  36. IF WARN
  37.    C:Copy >NIL: prefs/datatypes/akJFIFPrefs#? SYS:prefs/datatypes CLONE
  38. ENDIF
  39.  
  40. ;Install correct dt!
  41. c/akT CHK classes/datatypes/akJFIF.datatype SYS:classes/datatypes/akJFIF.datatype
  42. IF WARN
  43.    c/akT CPU 060
  44.    IF NOT WARN
  45.       C:Copy >NIL: classes/datatypes/akJFIF.datatype.060 SYS:Classes/datatypes/akJFIF.datatype CLONE
  46.    ELSE
  47.       c/akT CPU 040
  48.       IF NOT WARN
  49.          C:Copy >NIL: classes/datatypes/akJFIF.datatype.040 SYS:Classes/datatypes/akJFIF.datatype CLONE
  50.       ELSE
  51.          c/akT CPU 030
  52.          IF NOT WARN
  53.             C:Copy >NIL: classes/datatypes/akJFIF.datatype.030 SYS:Classes/datatypes/akJFIF.datatype CLONE
  54.          ELSE
  55.             c/akT CPU 020
  56.             IF NOT WARN
  57.                C:Copy >NIL: classes/datatypes/akJFIF.datatype.030 SYS:Classes/datatypes/akJFIF.datatype CLONE
  58.             ELSE
  59.                C:Copy >NIL: COPY classes/datatypes/akJFIF.datatype SYS:Classes/datatypes/akJFIF.datatype CLONE
  60.             ENDIF
  61.          ENDIF
  62.       ENDIF
  63.    ENDIF
  64.  
  65.    ;Move any old dt headers to storage!
  66.    Rename >NIL: SYS:Devs/Datatypes/#?JFIF#? SYS:Storage/Datatypes/
  67.    Rename >NIL: SYS:Devs/Datatypes/#?JPEG#? SYS:Storage/Datatypes/
  68.    Rename >NIL: SYS:Devs/Datatypes/JPG#? SYS:Storage/Datatypes/
  69.    Rename >NIL: SYS:Devs/Datatypes/JFIF-Photo#? SYS:Storage/Datatypes/
  70.  
  71.    ;Install new dt header!
  72.    C:Copy >NIL: devs/datatypes/JFIF#? DEVS:DataTypes
  73.  
  74.    ;If VMEM assign not found, assign it and add to user-startup!
  75.    c/akT ASN vmem
  76.    IF WARN
  77.       C:RequestChoice >NIL: "ak Installer" "The VMEM: assign was not found!*NIt is needed by this datatype,*Nto be used as temporary directory." "Assign"
  78.       C:RequestFile >ENV:akvmem "SYS:" TITLE="Please select temporary dir:" SAVEMODE DRAWERSONLY NOICONS
  79.       ECHO >>S:User-Startup "*N;BEGIN VMEM"
  80.       ECHO >>S:User-Startup "Assign >NIL: VMEM: $akvmem"
  81.       ECHO >>S:User-Startup ";END VMEM"
  82.       C:Assign >NIL: VMEM: $akvmem
  83.       UNSETENV akvmem
  84.    ENDIF
  85.  
  86.    ;Change dir to docs!
  87.    CD Docs
  88.  
  89.    ;Show guide and start dtprefs!
  90.    Run >NIL: MultiView akJFIF.guide
  91.    Run >NIL: /Prefs/DataTypes/akJFIFPrefs
  92.  
  93.    ;Install completed message!
  94.    C:RequestChoice >NIL: "ak Installer" "Install completed!*NPlease reboot the system,*Nto use the new datatype!" "Ok"
  95. ELSE
  96.    ;Install not needed message!
  97.    C:RequestChoice >NIL: "ak Installer" "Install not needed!*NYou have the same or a higher version!" "Ok"
  98. ENDIF
  99.  
  100. ;Clean up memory/free resources!
  101. C:Avail >NIL: FLUSH
  102.